Top 10k strings from Premier League (1987)(Challenge Software)[re-release].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

  10 COUNT=COUNT+
   5 "5")=E(TEAM,
   5 "25";E(TEAM,
   4 D$(PLAYER,
   4 "5")+B(TEAM,N,
   3 S(TEAM,COUNT)=V
   3 "7")=E(T(N),
   3 "3")=E(TEAM,
   3 "1")=E(TEAM,
   2 TEAM=TEAM+
   2 POST=POST+
   2 POINTS=A(F,
   2 MONEY=MONEY+TEST:
   2 LOAN=LOAN+
   2 CTTEAM=CTTEAM+
   2 C$(TEAM,PLAYER)="M"
   2 C$(TEAM,PLAYER)="A"
   2 BGOAL=BGOAL+B(TEAM,N,
   2 B(T(F),PLAYER,
   2 -SKILL)*50000
   2 "8")=E(T(F),
   2 "7")=E(TEAM,
   2 "7")=E(T(N+
   2 "7")=A(T(F+
   2 "7")=A(T(F),
   2 "5";"Enter new name":
   2 "5";"3) Return to main menu":
   2 "5")-A(TEAM,
   2 "3")=B(T(F),PLAYER,
   2 "3")+B(TEAM,N,
   2 "2")=E(TEAM,
   2 "2")+B(TEAM,N,
   2 "1";"YOU HAVE BEEN SACKED":
   2 "1";"WEEKLY BAL. `:";BAL
   2 "1",X)=" "
   2 "1")=DICE:
   2 "1")+B(TEAM,N,
   1 z,M;A$(A);" ";G$:
   1 Z$=C$(TEAM,PLAYER)
   1 You owe the Bank  `";LOAN:
   1 Y$="WIMBLEDON":
   1 WIMBLEDONJ
   1 WG=ABILITY*
   1 WEEK=WEEK+
   1 TEST>GDICE
   1 TEST=TEST+
   1 TEAM=BTEAM
   1 T(N)=O(N):
   1 T(F)=TEAM)
   1 SQUAD=SQUAD+
   1 SHILTON  ANDERSON PEARCE   MABBUTT  BUTCHER  ADAMS    STEVENS  ROBSON   HODDLE   HODGE    WADDLE   BARNES   LINEKER  BEARDSLEYCOTTEE
   1 SEASON=SEASON+
   1 S(TEAM,N)=
   1 POINTS=A(TEAM,
   1 POINTS < A(F,
   1 PLAYER=PLAYER+
   1 P P P P P   P P P   P P P
   1 O(N)=T(N+1
   1 N=S(TEAM,N)
   1 MONEY=MONEY-Z:
   1 MONEY=MONEY-P:
   1 MONEY=MONEY+Z:
   1 MONEY=MONEY+TEST
   1 MONEY=MONEY+FEE:
   1 MONEY=MONEY+
   1 MONEY+TEST<
   1 MIDDLESBRO'L
   1 MCOUNT>STYLE
   1 MCOUNT=MCOUNT+
   1 LOAN=LOAN-Z:
   1 LOAN=LOAN+Z:
   1 L$="CHELSEA"
   1 J$="MIDDLESBRO'":
   1 GOOD=GOOD-
   1 GOOD=GOOD+
   1 GAMES=GAMES+
   1 FORM=FORM+B(A,N,
   1 FEE=(B(TEAM,PLAYER,
   1 Enter squad No. or (M) for menu 
   1 E(BTEAM,G)=E(
   1 DICE=DICE+SKILL:
   1 CTTEAM=CTTEAM-
   1 CHAMP=CHAMP+
   1 C$(TEAM,V)="M"
   1 C$(TEAM,V)="D"
   1 C$(TEAM,V)="A"
   1 C$(TEAM,S)=Z$
   1 C$(TEAM,PLAYER)=" ":
   1 C$(TEAM,PLAYER)=" "
   1 C$(TEAM,N)=C$(
   1 C$(TEAM,N)="M"
   1 C$(TEAM,N)="D"
   1 C$(TEAM,N)="A"
   1 C$(TEAM,N)=" "
   1 BTEAM=TEAM
   1 BGOAL>(AGOAL*
   1 BAL=BAL-TEST:
   1 B(TEAM,PLAYER,N)=
   1 B(TEAM,N,F)=B(
   1 B(B,N,F)=B(
   1 AGOAL>(BGOAL*
   1 AGOAL=AGOAL+B(
   1 ABILITY=ABILITY+B(A,N,
   1 ABILITY=ABILITY+B(
   1 A(B,N)=T(N):
   1 ;"Player to replace or R to return"
   1 ;"INJURY  TIME":
   1 ;" Enter(D)rop or (P)ick a player "
   1 ;" Enter squad No. to play
   1 ;" Enter squad No. to drop
   1 ;"   PLAYER   TYPE  A   F   G  No."
   1 );" in league":
   1 (TEST+MONEY)
   1 (((E(T(N),
   1 $(F,N)="D":
   1 "TOTTENHAM","A. VILLA","LUTON","Q.P.R.","MILLWALL","SHEFF WED","SOUTH'TON","DERBY","NORWICH","LIVERPOOL","ARSENAL","WEST HAM","EVERTON","COVENTRY","MAN. UTD"
   1 "SHILTON","ANDERSON","PEARCE","MABBUTT","BUTCHER","ADAMS","STEVENS","ROBSON","HODDLE","HODGE","WADDLE","BARNES","LINEKER","BEARDSLEY","COTTEE"
   1 "ENTER AMOUNT TO PAY   `";
   1 "ENTER AMOUNT REQUIRED  `";
   1 "9")>E(T(N+
   1 "9")>E(T(N),
   1 "9");"   SEASON ";SEASON
   1 "82500"+((
   1 "8";A$(BB);" SHOOT":
   1 "8";A$(AA);" SHOOT":
   1 "8")>E(T(N+
   1 "8")=E(T(N+
   1 "8")=COUNT:
   1 "8");A$(n):
   1 "8");"  ":
   1 "75000")+(B(TEAM,PLAYER,
   1 "75000")+(B(
   1 "7";"ENTER MANAGER'S NAME":
   1 "7";"ATTENDANCE   :";TEST
   1 "7";"(";E(T(
   1 "7";"  MAX 12 LETTERS":
   1 "7");"Manager ";X$
   1 "6";AGOAL:
   1 "6")=A(T(F+
   1 "6")=A(T(F),
   1 "6")<(A(F,
   1 "6")+E(T(F+
   1 "6")+E(T(F),
   1 "6"))=(A(F,
   1 "5000"*(Z=
   1 "5";"NO MORE PLAYERS ON OFFER":
   1 "5";"NO MORE DEALS THIS WEEK":
   1 "5";"E & J PREMIER DIVISION"
   1 "5";"CHAMPIONSHIP WINS - ";CHAMP
   1 "5";"4) Return to main menu":
   1 "5";"3) Save game ":
   1 "5";"3) Return to main menu"
   1 "5";"2) Sell a player":
   1 "5";"2) Pay off loan": 
   1 "5";"2) League Table ":
   1 "5";"2) Change team name":
   1 "5";"1) Take out loan":
   1 "5";"1) List fixtures":
   1 "5";"1) Change player name":
   1 "5";"1) Buy a player":
   1 "5";"    AVERAGE SESSION":
   1 "5")>(E(T(N+
   1 "5")>(E(T(N),
   1 "5")=A(T(F+
   1 "5")=A(T(F),
   1 "5")+E(T(F+
   1 "5")+E(T(F),
   1 "4000"*(Z=
   1 "4";n;")  ";
   1 "4";C$(TEAM,PLAYER);"    A-";B(TEAM,PLAYER,
   1 "4";A$(TEAM);" ";"PLAYER No. ";PLAYER
   1 "4";"WELL DONE ! YOU HAVE WON
   1 "4";"PRESS  ENTER TO CONTINUE":
   1 "4";"Enter your offer"
   1 "4";"ENTER Y OR N TO CONTINUE":
   1 "4";"ENTER OPTION  REQUIRED":
   1 "4";"DO YOU ACCEPT THIS OFFER":
   1 "4")=FORM:
   1 "4")=A(T(F+
   1 "4")=A(T(F),
   1 "3";B$(PLAYER):
   1 "3";B$(P);" SHOWS GOOD FORM":
   1 "3";B$(P);" INJURED":
   1 "3";B$(P);"  POOR SESSION
   1 "3";B$(N);"  ";C$(
   1 "3";A$(TEAM);" OFFER  `";FEE
   1 "3";A$(B):
   1 "3";A$(A);"    ";ABILITY;"  ";FORM:
   1 "3";"SALARY OFFER - `";S
   1 "3";"PRESS Y TO SEE SQUAD/LEAGUE":
   1 "3";"OFFER YOU MANAGERS JOB":
   1 "3";"NO MORE SELLING THIS WEEK":
   1 "3";"HAS DEMANDED A TRANSFER":
   1 "3";"Due to your lack of success":
   1 "3";"Do you accept ?":
   1 "3")=B(TEAM,PLAYER,
   1 "3")=A(T(F+
   1 "3")=A(T(F),
   1 "3");A$(N)(1
   1 "3");"  ";N:
   1 "3")+(E(TEAM,
   1 "3")+(E(F,
   1 "29";C$(TEAM,N):
   1 "27";B(TEAM,N,
   1 "26";B(A,N,
   1 "25";BGOAL
   1 "24";;A(N,
   1 "21";"(";E(T(
   1 "20";A$(TEAM)
   1 "20";"- Offer ";N:
   1 "2"=WEEK-15
   1 "2";B$(P);" IMPROVES ":
   1 "2";;"WAGES/EXP.  `:";TEST
   1 "2";"INTEREST    `:";
   1 "2";"AMOUNT OWED
   1 "2";" You finished ";A(1
   1 "2";" <6> FINANCIAL/SAVE GAME"
   1 "2";" <5> TRANSFER MARKET"
   1 "2";" <4> PLAY NEXT FIXTURE"
   1 "2";" <3> PRINT SQUAD DETAILS"
   1 "2";" <2> PRINT LEAGUE/FIXTURES"
   1 "2";" <1> CHANGE PLAYER/TEAM NAME"
   1 "2";" ";B$(N)
   1 "2";"  TEAM
   1 "2",G)=PLAYER
   1 "2")=DICE:
   1 "2")=B(TEAM,PLAYER,
   1 "2")=A(T(F+
   1 "2")=A(T(F),
   1 "2");"   ";B(
   1 "2");"    G-";B(TEAM,PLAYER,
   1 "2")-(E(T(N+
   1 "2")-(E(T(N),
   1 "19";A$(TEAM)
   1 "18",RC;COUNT:
   1 "17";A$(T(
   1 "17",N,F)=B(
   1 "17",N,F):
   1 "17",G)=E(TEAM,G):
   1 "1500"*(Z=
   1 "15";"   ";A$(T(D));"  ";E(T(D),
   1 "14";C$(A,N);"   ";B(A,N,
   1 "12";"`";TEST:
   1 "12";"TIME :";
   1 "11";"THIS WEEK":
   1 "11";"  MORALE ":
   1 "11";"  MIDFIELD ":
   1 "11";"  GOALS   ":
   1 "11";"  FORM    ":
   1 "11";"  DEFENCE  ":
   1 "11";"  ATTACK  ":
   1 "11")="A":
   1 "10000")+(B(TEAM,PLAYER,
   1 "10000"))+(B(
   1 "10";B$(n)
   1 "10");A$(n):
   1 "1";D$(S(1
   1 "1";B$(N):
   1 "1";A$(T(D));" ";E(T(D),
   1 "1";"YOU HAVE  BEEN  SACKED":
   1 "1";"WEEK ";WEEK:
   1 "1";"SUB: ";B$(SP)
   1 "1";"SELECT  OPTION AND PRESS ENTER":
   1 "1";"SALARY - `";SAL
   1 "1";"RECEIPTS    `:";TEST:
   1 "1";"PLEASE WAIT":
   1 "1";"LEAGUE
   1 "1";"Estimated value  ";B(TEAM,PLAYER,
   1 "1";"CURRENT BALANCE  `";MONEY:
   1 "1";" YOU DO NOT HAVE ENOUGH MONEY    IN YOUR ACCOUNT - GET A LOAN ! ":
   1 "1";" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number
   1 "1";" SORRY THIS PLAYER UNAVAILABLE  ":
   1 "1";" Press (M) to return to menu    ":
   1 "1";" PRESS (M) TO RETURN TO MENU    ":
   1 "1";" PRESS (M) TO RETURN TO MENU    "
   1 "1";" PREMIER II "
   1 "1";" PLAYER INJURED DURING MATCH    ":
   1 "1";" PLAYER INJURED - NOT AVAILABLE ";
   1 "1";" OFFER NOT ACCEPTED ":
   1 "1";" Enter team number of substitute":
   1 "1";" ENTER (P)RINT OR (C)ONTINUE    "
   1 "1";"   Team style 4-4-2    MORALE  ";E(A,
   1 "1";"   Team style 4-3-3    MORALE  ";E(A,
   1 "1";"   Team strengths:-
   1 "1";"   HOME TEAM
   1 "1";"   E N D   O F   S E A S O N    ":
   1 "1";"    THIS PLAYER NOT AVAILABLE   ":
   1 "1",PLAYER)=" "
   1 "1",N,F)=B(B,N,F):
   1 "1",N)=C$(TEAM,PLAYER):
   1 "1",N)=A(B,N):
   1 "1",N)="M"
   1 "1",N)="D"
   1 "1",N)="A"
   1 "1",N)=" "
   1 "1",N);"   ";B(
   1 "1",G)=PLAYER
   1 "1",B)=" ":
   1 "1",B)=" "
   1 "1",A)=" "
   1 "1")=TEAM)
   1 "1")=B(TEAM,PLAYER,
   1 "1")=A(T(F+
   1 "1")=A(T(F),
   1 "1")=A$(B):
   1 "1");"   ";B(A,N,
   1 "1");"   ";B(
   1 "1");"    F-";B(TEAM,PLAYER,
   1 "1")+(E(TEAM,
   1 "1")+(E(F,
   1 "0";" SKILL ";SKILL;"    MORALE ";E(
   1 "0";" KICK OFF":
   1 "0";" HALF TIME":
   1 "0";" FULL TIME":
   1 "0";" DO YOU HAVE A PRINTER CONNECTED  ":
   1 "0";" ";D$(N,
   1 "0";"  press R - return or S - save"
   1 "0";"  P R E  M A T C H  R E P O R T "
   1 "0";"  DO YOU WISH TO USE  YOUR SUB  ":
   1 "0";"   Number in team  =  ";CTTEAM;" ":
   1 "0";"   Number in team  =  ";CTTEAM;" "
   1 "0";"   ENTER SKILL LEVEL REQUIRED   ":
   1 "0";"    YOUR  SQUAD IS TOO SMALL    ":
   1  YOU HAVE A FULL SQUAD
   1  TOTTENHAM A. VILLA  LUTON
   1  THE PREMIER CHAMPIONSHIP":
   1  Slight knock":
   1  SEASON  TICKET  SALES
   1  Q.P.R.    MILLWALL  SHEFF WED SOUTH'TON DERBY
   1  PLAYER  TRANSFERRED
   1  PLAYER  SOLD
   1  P  W  D  L  F  A PTS"
   1  OTHER  RESULTS
   1  NORWICH   LIVERPOOL ARSENAL   WEST HAM  EVERTON   COVENTRY  MAN. UTD  
   1  NO PROBLEMS"
   1  HOME TEAM
   1  HALF  TIME  SCORES
   1  FROM 1 TO 7
   1  FINAL TEAM 
   1  E & J  PREMIER DIVISION    ":
   1    FINAL OFFER DO YOU ACCEPT  ?